Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_88 / mario / mario.bas

(.txt)

Wrap

Atari STOS Basic | 1989-11-22 | 145KB | 147 lines

100 VARNAME 1000 SPRITE 1010 VARNAME 1020 VARNAME 1030 SPRITE 1040 VARNAME 1050 VARNAME 1060 SPRITE 1070 PUT SPRITE 1080 LIMIT SPRITE 1090 RETURN 110 REM START 1100 REM LEVEL 1110 VARNAME 1120 VARNAME 1130 IF 1140 SPRITE 1150 WAIT VBL 1160 CLS 1170 WAIT VBL 1180 LOCATE 1190 WAIT 120 MUSIC 1200 RETURN 1210 WAIT VBL 1220 MUSIC 1225 VARNAME 1230 CLS 1240 WAIT VBL 1250 EXTENSION (Index #0) (Token 0x80) 1260 IF 1266 DEC 1270 GOTO 130 FLASH 1300 EXTENSION (Index #0) (Token 0x80) 1310 LOCATE 1320 PRINT 1330 LOCATE 1340 PRINT 1350 LOCATE 1360 PRINT 1370 LOCATE 1380 PRINT 1390 LOCATE 140 IF 1400 PRINT 1410 GOTO 1415 LOCATE 1420 IF 1430 IF 1440 IF 1450 IF 1460 IF 1470 RETURN 150 IF 160 LIMIT SPRITE 170 VARNAME 180 GOSUB 190 VARNAME 200 GOSUB 210 VARNAME 220 IF 230 IF 240 IF 250 IF 260 IF 270 IF 280 IF 290 IF 30 VARNAME 300 IF 310 IF 320 IF 330 IF 340 IF 350 IF 360 IF 370 IF 380 IF 390 IF 40 VARNAME 400 IF 410 LET 420 IF 430 IF 440 IF 450 IF 460 IF 470 IF 480 IF 490 GOTO 50 VARNAME 500 IF 510 IF 520 IF 530 IF 540 IF 550 IF 560 IF 570 VARNAME 580 IF 590 SPRITE 60 VARNAME 600 MOVE X 610 MOVE Y 620 ANIM 630 MOVE 640 ANIM 650 RETURN 660 IF 670 SPRITE 680 ANIM 690 MOVE X 70 VARNAME 700 MOVE Y 710 ANIM 720 MOVE 730 RETURN 740 IF 750 IF 760 IF 770 IF 780 RETURN 790 DEC 80 REM MARIO BROS 800 REM SKRIVA UT LIV 810 LIMIT SPRITE 820 WAIT VBL 830 IF 840 IF 850 IF 860 WAIT VBL 870 WAIT VBL 880 LIMIT SPRITE 890 RETURN 90 MODE 900 DEC 910 GOTO 920 REM SKRIVA UT POANG 930 LIMIT SPRITE 940 VARNAME 950 VARNAME 960 VARNAME 970 SPRITE 980 VARNAME 990 VARNAME